home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d10 / typinstr.arc / BASLSN8.DAT < prev    next >
Encoding:
Text File  |  1991-03-20  |  366 b   |  8 lines
  1. 6,5
  2. x=abs(7*(-5)): z$=chr$(x):  print asc(z$)  'prints a # sign
  3. if q%<20 then print chr$(7): beep else return  'beeps twice
  4. def seg=&hb800: bload "picture",0: def seg  'shows picture
  5. open "I",2,"ABC": input #2, a$,b$,c$: for n=1 to 6: line
  6. input #2, abc$: next n: close 2  'gets data from the file
  7. q!=10^2 + 356.78: print using "$$###.##";q  'prints $456.78
  8.